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MODIFIED BY: 


v03-006 KPLO001 Peter Lieberwirth 15-Jan-1984 
Fix some broken work displacements, in fact, fix them all. 

v03-005 TMKO001 Todd M 20-Dec-1983 
Fix some broken word Sheslanenenie, 

V03-004 wMC0004 Wayne Cardoza 10-Jan-1982 
Fix some broken word displacements. 

V03-003 JWHO143 Jeffrey W. Horn 30-Nov-1982 
Back-out JwHOT36, code that broke references is now in 
another PSECT. 

v03-002 snot 36 Jeffrey W. Horn 24-Nov-1982 

ix broken references. 
v03-001 KDM0083 Kathleen D. Morse 31-Mar-1982 
Add multi-processing hooks for replacement scheduling routines. 
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9645000 CEASRESCHED RESCHEDULING INTERRUPT HANDL g- iets 9 84:09:46 Yeys. SRCJSCHED.MAR; 1 . dy 
59 as «SBTTL SCHSRESCHED RESCHEDULING INTERRUPT HANDLER 
3 SCHSRESCHED = RESCHEDULING INTERRUPT HANDLER | 
63 ; THIS RO TINE IS ENTERED VIA THE IPL 3 RESCHEDULING INTERRUPT. 
64 ; THE VCCTOR FOR THIS INTERRUPT IS CODED TO CAUSE EXECUTION 
69 : ON THE KERNEL STACK. 
83 ; ENVIRONMENT 
68 ; =3 MODE=KERNEL 1S=0 
0 9 ; INPUT: 
0 0; 90 SP)=PC AT RESCHEDULE INTERRUPT 
00 f1 : 4(SP)=PSL AT INTERRUPT 
00 4 .ALIGN LONG 
0000 74 MPHSRESCHED:: ;MULTI-PROCESSING CODE Hooks IN HERE 
000 #75 SCHSRESCHED:: TRESCHEDULE INTERRUPT HANDL 
909 i: SETIPL #IPL$_SYNCH : SYNCHRONIZE SCHEDULER” WITH EVENT REPORTING 
07 000 7 SVPCTX SSAVE CONTEXT OF PROCESS 
51 Q0000000°EF 00 0004 # 78 MOVL  L*“SCH$GL_CURPCB,R1 [GET ADDRESS OF CURRENT PCB 
1 9A 0008 79 MOVZBL PcBSB,P PRI(R1), RO : CURRENT PRIORITY 
00 00000000'EF 52 Ee OO0F 80 BBSS L*Sc NSGL toma QS,10$ :MARK QUEUE NON-EMP 
aC Al 0¢ : 0017 1 10$: MOVW Beeler _COM Pct ua gTATE Rl) gSET STATE TO AES. COMPUTE 
53 000 0000"EF 4 E O18 Be MOVAQ SCHSAG_C mir sCOMPUTE ADDRESS OF QUEUE 
93 61 O€ 00 ; 83 INSQUE (R1) oth tINSERT AT TAIL OF QUEUE 
0026 85 + 
+ Hy 3; SCHSSCHED - SCHEDULE NEW PROCESS FOR EXECUTION 
0026 88 : THIS ROUTINE SELECTS THE HIGHEST PRIORITY EXECUTABLE PROCESS 
99 6 89 : AND PLACES IT IN EXECUTION. 
00 6 91 MPHSSCHED:: ZMULTI-PROCESSING CODE HOOKS IN HERE 
026 3 SCHSSCHED: : sSCHEDULE FOR EXECUTION 
0026 «9 SETIPL #iPL $,57 : SYNCHRONIZE SCHEDULER WITH EVENT REPORTING 
52. O0000000'EF 20 00 EA 0029 9% S s 2. L* NSCHSGL. COMQS ,R2 sFIND FIRST FULL STATE 
45 13 0032 95 BEQL. Ss ; XE CUTABLE PRO ES$39 
+ 00000000" EF 4e 7E 0034 9 OVA SCHSAQS -COMHCR2I, R3 [COMPUTE QUEUE HEAD ADDRESS 
54 93 OF O003C 97 REMQUE a(R (R3) +> :GET HEAD OF QU 
1D OO3F 98 BVS SemPty’ [BR IF QUEUE WAS EMPTY (BUG CHECK) 
08 le 041 99 BNEQ 208 SQUEUE NOT EMPTY 
00 00000000'EF 52 € O45 100 ae BBCC R2,L*SCHSGL_COMQS,20$ SET QUEUE EMPTY 
OA AG OC 91 048 198 CMPB #DYNSC _PCB,PCBSB_ TYPE (R45 :MUST BE A PROCESS CONTROL BLOCK 
oe Fay BNEQ  QEMPT “OTHERWISE FATAL ERROR 
cae OF B 51 104 MOVW wSCHSE eGyk pcesy STATE(R4) -SET STATE TO CURRENT 
‘EF O54 p 55 105 MOVL LS eat PTB NOTE CURRENT PCB LOC 
0B AS =F AG O91 a é CPB Pc PRIBIRE) *PCBSB.. priine) >CHECK FOR 
LS sPRIORITY=CURRE 
98 13 1 g BEQL 308 :YES, DONT FLOAT PRIORITY 
03 0B a6) «=O06Ssi«éED.:s«C06Ssi BBC #4,PCBSB PR (R4) ,30$ ;DONT FLOAT REAL TIME PRIORITY 
coooooonrer fe Ai $B BREE HIP sos: NE EEREPRTRS sascunca ohfO™" "OHREP BMEEA™ Pion 
10 18 AG DA "3 118 MTPR sa tte BrpRIRG) #PRS_PCBB [SET PCB BASE PHYS ADDR 
$ (da LOPCTX ;RESTORE CONTEXT 
A: 114 REI [NORMAL RETURN 
79 «115 
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INTERRUPT HANDLER Ig-sep=t 
RESCHEDULING INTERRUPT HANDL 5=SEP=1 
116 SCHSIDLE: 

11 SETIPL #IBLS SCHED 

118 MOVB sch GB_PRI 
119 BRB greek SCHE 

iH QEMPTY: BUG_CHECK QUEUEMPTY, FATAL 
1 END 
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(32) 16 SIGNAL IDLE 


Hy pcrive. E 


SAND TRY AGAIN 


;SCHEDULING QUEUE EMPTY 


SCHED 
Symbol table 


SYS.SRCJSCHED.MAR; 1 


BUGS _QUEUVEMPTY eereeere =X 8 02 
DYNSC_PCB = 
IPL$_SCHED 2 
IPL$-SYNCH = 
reweee oLNee RG 8g 
MPHSSCHED 6 RG 
PCBSB_PRI = 
PCBSB_PRIB = F 
CBSB_TYPE = A 
PCBSL_PHYPCB = 18 
CBSW_STATE = ¢ 
$_IPL = ; 8 
PRS _PCBB = 1 
QEMPTY 0000085 R 03 
SCHSAQ_COMH eeeeeeee 
SCHSAQ_COMT eeeeeere =X 
SCHSC_COM = 0000000C 
SCHSC_CUR = Q000000E 
SCH$GB_PRI teeeeeee XK 0 
SCHSGL_COMQS eeeereee Xx 0 
SCHSGL_CURPCB eeeeeeee KX 0 
SCHS1DC 0000079 R 0 
SCHSRESCHED 0000000 RG 0 
SCHSSCHED 00000026 RG 0 
bern nen enn nacre oae oo 
! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ; 99 ( 0.) NOPIC “USR CON ABS LCL at NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00000000 0) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
AE XENONPAGED 00000089 137.) § ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
Fomor aman enon ro rena awee 
} Performance indicators H 
hanacnennamnnememe 
Phase Page faults CPU Time Elapsed Time 
Initialization 5 0:00: 0.04 aa : 
yonmend processing 121 0:00:00.49 0:00:04 
Pass 1 204 § 
— iable sort 3 . ‘] 
Symbol table output 4 :00:00.04 if :00. 
Psect synopsis output 00:00. :00:00. 
Cross-reference output . 3: :00. 
Assembler run totals 4) 2 7:00:28. 


gyertine » 43 Limit was 1200 pages. 

eson bytes (52 pages) of virtual memory were eoee to buffer the intermediate gofe. 
¢ re were 30 pages of symbol table {space al ocoiee to hold sis° non-local ane local symbols. 
125 source Lines were read in Pass 1 o produc ng 13 object records in Pass 
15 pages of virtual memory were used to defi ne 14 macros. 
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VAX=11 Macro Run Statistics eset 8}: 93: § toys. SRCIS HED. MAR; 


Peewee cena eon oan ce ema cen} 


! Macro Library statistics ! 


tees seecece suceousausesensnen$ 


Macro Library name Macros defined 


“$52 zSDUAGE: 8:CSYS.OBJJLIB.MLB;1 7 
SDUA28 :(SYSLIB STARLET. MLB;2 4 
ToThis (all libraries) 11 


594 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SCHED/OBJ=0BJ$:SCHED MSRC$:SCHED/UPDATE=(ENHS$: SCHED) *EXECML$/LIB 
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